1 前処理

2 グラフ描画

2.1 2510

data1 <- daily1 %>%
    filter(ticker == "2510",
           date > Sys.Date() - 365)

g <- ggplot(NULL) +
  geom_line(data = data1, aes(x = date, y = close, colour = ticker)) +
  geom_point(data = subset(zandaka, ticker == "2510"), aes(x =date, y = tanka, colour = ticker)) +
  geom_point(data = subset(keikaku, ticker == "2510"), aes(x =date, y = tanka, colour = ticker))


ggplotly(g)

2.2 2559

data1 <- daily1 %>%
    filter(ticker == "2559",
           date > Sys.Date() - 365)

g <- ggplot(NULL) +
  geom_line(data = data1, aes(x = date, y = close, colour = ticker)) +
  geom_point(data = subset(zandaka, ticker == "2559"), aes(x =date, y = tanka, colour = ticker)) +
  geom_point(data = subset(keikaku, ticker == "2559"), aes(x =date, y = tanka, colour = ticker))

ggplotly(g)

2.3 TMF

data1 <- daily1 %>%
    filter(ticker == "TMF",
           date > Sys.Date() - 365)

g <- ggplot(NULL) +
  geom_line(data = data1, aes(x = date, y = close, colour = ticker)) +
  geom_point(data = subset(zandaka, ticker == "TMF"), aes(x =date, y = tanka, colour = ticker)) +
  geom_point(data = subset(keikaku, ticker == "TMF"), aes(x =date, y = tanka, colour = ticker))

ggplotly(g)

2.4 bitcoin

data1 <- daily1 %>%
    filter(ticker == "bitcoin",
           date > Sys.Date() - 365)

g <- ggplot(NULL) +
  geom_line(data = data1, aes(x = date, y = close, colour = ticker)) +
  geom_point(data = subset(zandaka, ticker == "bitcoin"), aes(x =date, y = tanka, colour = ticker)) +
  geom_point(data = subset(keikaku, ticker == "bitcoin"), aes(x =date, y = tanka, colour = ticker))

ggplotly(g)